#!/usr/bin/perl

package DefaultDeck;
use CardStack;

our @ISA = "CardStack";

sub new {
	my $class = shift;
	my $self = {};
	bless $self, $class;
	$self->SUPER::setup ("SA, S2, S3, S4, S5, S6, S7, S8, S9, S10, SJ, SQ, SK, HA, H2, H3, H4, H5, H6, H7, H8, H9, H10, HJ, HQ, HK, DA, D2, D3, D4, D5, D6, D7, D8, D9, D10, DJ, DQ, DK, CA, C2, C3, C4, C5, C6, C7, C8, C9, C10, CJ, CQ, CK");
	my $i = 0;
	my $j;
	while ($i < 4) {
		$j = 0;
		while ($j < 13) {
			@myCards = $self->SUPER::getCards;
			$myCards[$i*13+$j]->setvalue($j + 1);
			$j++;
		}
		$i++;
	}
	$self->SUPER::shuffle();
	$self;
}
1;